home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
ELECTRIC
/
DSPICE0S.ZIP
/
ushift.c
< prev
next >
Wrap
C/C++ Source or Header
|
1989-07-07
|
384b
|
24 lines
#define TABS 8
ushift_(l)
char *l;
{
static int i, j, k;
static char m[132], *a, *b;
a= m; b= l;
for (i=0; i<80; i++) {
if (*b != '\t') { *a++= *b++; }
else {
for (j= i % TABS; j < TABS; j++) *a++ = ' ';
b++;
}
}
a= m; b= l;
for (i= 0; i<80; i++) {
if (*a >= 'A' && *a <= 'Z') {
*b++= *a++ + ('a' - 'A');
}
else { *b++ = *a++; }
}
}